program afficheclient;

USES
	Types,Clients;
	

Procedure afficheclient(ID_Client : INTEGER;recClient : TTabclient);		//transformer en procedure parce que on retourne rien
																		//Définition du nom de notre fonction ainsi que ses paramètres en entrée-sortie	
	Var 
		i:INTEGER;
	Begin
		i:= indiceClient(ID_Client,recClient);
																	//Appel de la fonction indiceclient
		WRITELN('ID: ',recClient.tabclient[i].ID);																//Affiche toutes les informations concernant un client depuis le tableau
		WRITELN('Nom: ',recClient.tabclient[i].nom);
		WRITELN('Prenom: ',recClient.tabclient[i].prenom);
		WRITELN('Date de naissance: ',recClient.tabclient[i].naissance);
		WRITELN('Politesse : ',recClient.tabclient[i].politesse);
		WRITELN('Adresse: ',recClient.tabclient[i].adresse);
		WRITELN('NPA : ',recClient.tabclient[i].npa);
		WRITELN('Localite : ',recClient.tabclient[i].localite);
		WRITELN('Numero de telephone : ',recClient.tabclient[i].telephone);
	End;
	
Var 
	client:TTabClient;

BEGIN
	client.tabclient[1].ID := 5;
	client.tabclient[1].nom := 'RONDEZ';
	client.tabclient[1].prenom := 'EMMANUEL';
	client.tabclient[1].naissance := '7.11.1985';
	client.tabclient[1].politesse := 'MONSIEUR';
	client.tabclient[1].adresse := 'Bas du village';
	client.tabclient[1].npa := '2536';
	client.tabclient[1].localite := 'PLAGNE';
	client.tabclient[1].telephone :='0797759427';
	
	client.tabclient[2].ID := 6;
	client.tabclient[2].nom := 'RONDEZewegfdfgndjn';
	client.tabclient[2].prenom := 'EMMANUEL';
	client.tabclient[2].naissance := '7.11.1985';
	client.tabclient[2].politesse := 'MONSIEUR';
	client.tabclient[2].adresse := 'Bas du village';
	client.tabclient[2].npa := '2536';
	client.tabclient[2].localite := 'PLAGNE';
	client.tabclient[2].telephone :='0797759427';
	
	client.nbelement:=2;
	
	afficheclient(6,client);



END.


